Garbo/Garbo.cdr/mac/hypercrd/hc2_x/castlbls.sit/Cassette Labels 1.1/background_2735.xml

Extensible Markup Language | 1991-03-13 | 18KB | 515 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2735</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3325.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3015.css" />
    <part>
        <id>13</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>421</left>
            <top>260</top>
            <right>453</right>
            <bottom>285</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>27009</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Next</name>
        <script>on mouseDownrepeatvisual effect wipe rightgo to next card of this bgif the mouse is up then exit repeatend repeatend mouseDown</script>
    </part>
    <part>
        <id>14</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>392</left>
            <top>260</top>
            <right>422</right>
            <bottom>285</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>9301</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Prev</name>
        <script>on mouseDownrepeatvisual effect wipe leftgo to previous card of this bgif the mouse is up then exit repeatend repeatend mouseDown</script>
    </part>
    <part>
        <id>19</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>326</left>
            <top>26</top>
            <right>382</right>
            <bottom>76</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1020</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Help</name>
        <script>on mouseUpvisual effect dissolvepush cardgo to card "help"end mouseUp</script>
    </part>
    <part>
        <id>21</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>326</left>
            <top>77</top>
            <right>382</right>
            <bottom>127</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1011</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Home</name>
        <script>on mouseUpvisual effect barn door closego Homeend mouseUp</script>
    </part>
    <part>
        <id>22</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>484</left>
            <top>315</top>
            <right>512</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>2162</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Return</name>
        <script>on mouseUpvisual effect iris closepop cardend mouseUp</script>
    </part>
    <part>
        <id>36</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>68</left>
            <top>49</top>
            <right>148</right>
            <bottom>62</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>New York</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>9</textHeight>
        <name>Date A</name>
        <script></script>
    </part>
    <part>
        <id>37</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>68</left>
            <top>60</top>
            <right>148</right>
            <bottom>72</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>9</textHeight>
        <name>NR A</name>
        <script></script>
    </part>
    <part>
        <id>38</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>195</left>
            <top>49</top>
            <right>276</right>
            <bottom>61</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>New York</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>9</textHeight>
        <name>Date B</name>
        <script></script>
    </part>
    <part>
        <id>39</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>195</left>
            <top>60</top>
            <right>276</right>
            <bottom>72</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>9</textHeight>
        <name>NR B</name>
        <script></script>
    </part>
    <part>
        <id>43</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>385</left>
            <top>38</top>
            <right>507</right>
            <bottom>125</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Comments</name>
        <script></script>
    </part>
    <part>
        <id>48</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>326</left>
            <top>181</top>
            <right>420</right>
            <bottom>231</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>31200</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Change Text Style</name>
        <script>on mouseUp-- change the text style of the current fieldif the selectedField is emptythen -- no field selectedanswer "Please click in a text field first"elselock screenset cursor to watchput the selectedChunk into oldChunkselect char 1 to (the number of chars of the selectedField)¬of the selectedFielddoMenu "Text Style..."select oldChunkunlock screenend ifend mouseUp</script>
    </part>
    <part>
        <id>53</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>424</left>
            <top>181</top>
            <right>506</right>
            <bottom>231</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>17346</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Music Library</name>
        <script>on mouseUpput the selection into whatToFind-- simulate auto-hilite, since the real thing loses the selectionset the hilite of me to trueset the hilite of me to falsevisual effect zoom opengo to stack ":new stacks:music library"if whatToFind is not emptythen find whole whatToFindend mouseUp</script>
    </part>
    <part>
        <id>51</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>386</left>
            <top>128</top>
            <right>442</right>
            <bottom>178</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>4898</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>New Label</name>
        <script>on mouseUpdoMenu "New Card"end mouseUp</script>
    </part>
    <part>
        <id>52</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>446</left>
            <top>128</top>
            <right>506</right>
            <bottom>178</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1007</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Print Label</name>
        <script>on mouseUp-- print only the 'label' portion of the carddoMenu "Print Card"end mouseUp</script>
    </part>
    <part>
        <id>59</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>0</left>
            <top>20</top>
            <right>29</right>
            <bottom>44</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>19678</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>About…</name>
        <script>on mouseUphide the message boxvisual effect dissolvepush cardgo to card "about…"end mouseUp</script>
    </part>
    <part>
        <id>61</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>326</left>
            <top>128</top>
            <right>382</right>
            <bottom>178</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>32670</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp-- show all cards of this backgroundput the number of cds of this bg - 1 into cardCountrepeat for cardCountgo next cd of this bgend repeatend mouseUp</script>
    </part>
    <name>label</name>
    <script>on openBackgroundglobal pastingput false into pastingpush recent cardend openBackgroundon find modifier,whatToFindif modifier is "normal" then -- substitute 'find whole' for findfind whole whatToFindelse -- let all other kinds of 'find' work normallypass findend ifend findon doMenu whatToDo-- intercept 'paste card' messages so we can distinguish between-- creating a card and pasting in an existing oneglobal pastingif whatToDo is "paste card"then -- use HC 1.2.x's paste card semanticsput true into pastingelse if whatToDo is "print card"then -- print only the "label" portion of this cardprint card from "17,47" to "308,323"exit doMenuend ifpass doMenuend doMenuon newCard-- make a new card based on the first card of the stackglobal pastingif pastingthenput false into pastingexit newCardend ifhide the messageput cursor into oldCursorset cursor to watchlock screenput CopyScrap () into scrapHandle -- save the clipboard-- copy first card of the stackpush cardgo to card 1domenu "copy card"pop carddoMenu "delete card" -- delete card created by 'New Card'go previous-- initialize copy of first carddomenu "paste card"set the cantDelete of this card to falseset the dontSearch of this card to falserepeat with i = 1 to the number of card fieldsput empty into card field iend repeatrepeat with i = 1 to the number of background fieldsput empty into background field iend repeatput the short date into field "date a"put the short date into field "date b"put "Dolby B" into field "NR A"put "Dolby B" into field "NR B"RestoreScrap scrapHandle -- restore the clipboardDisposeScrapCopy scrapHandleunlock screenend newCardon arrowKey direction -- show only cards of this backgroundif direction is "left" thenif the optionKey is down then go prevelse go prev card of this bkgndelse if direction is "right" thenif the optionKey is down then go nextelse go next card of this bkgndelse-- use default action for other arrow keyspass arrowKeyend if -- show only cards of this backgroundend arrowKeyon changeLineSpacing fieldName, cardOrBackground, howMuch-- change the space between lines (textHeight) in a field by a given-- number of pixels.  Note: HyperCard does not allow the textHeight of-- a field to be lower than the font size in that field.  Also note:-- this handler works only for fields with fixed height lines.if cardOrBackground is "card"then -- card fieldset the textHeight of cd fld fieldName to¬(the textHeight of cd fld fieldName) + howMuchelse -- background fieldset the textHeight of bg fld fieldName to¬(the textHeight of bg fld fieldName) + howMuchend if -- background fieldend changeLineSpacing</script>
</background>